perm filename BREAK.LAP[RUT,LSP] blob
sn#343767 filedate 1978-03-22 generic text, type T, neo UTF8
(DEFLIST (SAVEDEF ATOMLISTP BREAKIN0 UNBREAKIN BREAK0A CHNGNM CHNM1 RESTORE PACK-IN)
T
NOCALL)
(DEFLIST (%PRINFN) T CALL)
(LAP BREAK0 SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG11)
(HRRZ@ 5Q -4Q P)
(HLRZ@ 5Q 5Q)
(CAIN 5Q (QUOTE IN) S)
(JRST 0Q TAG13)
(PUSH P -4Q P)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
TAG1 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG20)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVE 3Q -4Q P)
(MOVE 2Q -5Q P)
(MOVEM 5Q -1Q P)
(CALL 3Q (E BREAK0) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E TCONC) S)
(JRST 0Q TAG1)
TAG20 (HLRZ@ 1Q 0Q P)
(SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q TAG12)
TAG13 (HLRZ@ 1Q -4Q P)
(MOVEM 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG23)
(MOVE 1Q 0Q P)
(CALL 1Q (E NCONS) S)
(MOVEM 1Q 0Q P)
TAG23 (HRRZ@ 1Q -4Q P)
(CALL 1Q (E CADR) S)
(MOVEM 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG25)
(MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(JRST 0Q TAG24)
TAG25 (MOVE 1Q -1Q P)
TAG24 (PUSH P 1Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
TAG2 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG33)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(PUSH P -2Q P)
(MOVEM 1Q -2Q P)
(PUSH P 5Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
TAG3 (PUSH P -3Q P)
(MOVE 5Q -3Q P)
(JUMPE 5Q TAG40)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVE 4Q -10Q P)
(MOVE 3Q -11Q P)
(MOVE 2Q -5Q P)
(MOVEM 5Q -3Q P)
(PUSHJ P BREAK0A)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E TCONC) S)
(POP P 5Q)
(JRST 0Q TAG3)
(PUSH P 5Q)
TAG40 (POP P 5Q)
(HLRZ@ 2Q 0Q P)
(MOVE 1Q 5Q)
(CALL 2Q (E LCONC) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(POP P -3Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG2)
TAG33 (HLRZ@ 1Q 0Q P)
(SUB P (C 2Q 0Q 2Q 0Q))
TAG12 (JRST 0Q TAG5)
TAG11 (MOVEI 2Q (QUOTE (EXPR FEXPR SUBR FSUBR LSUBR MACRO)) S)
(MOVE 1Q -4Q P)
(CALL 2Q (E GETL) S)
(MOVEM 1Q 0Q P)
(JUMPN 1Q TAG41)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -4Q P)
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE " is not a breakable function.") S)
(CALL 2Q (E PRINAC) S)
(CALL 0Q (E TERPRI) S)
(MOVEI 2Q (QUOTE (?)) S)
(MOVE 1Q -4Q P)
(CALL 2Q (E CONS) S)
(JRST 0Q TAG5)
TAG41 (MOVEI 2Q (QUOTE TRACE) S)
(MOVE 1Q -4Q P)
(CALL 2Q (E GET) S)
(JUMPE 1Q TAG42)
(MOVE 2Q (SPECIAL BROKENFNS) S)
(MOVE 1Q -4Q P)
(CALL 2Q (E REMOVE) S)
(MOVEM 1Q (SPECIAL BROKENFNS) S)
(MOVE 2Q (SPECIAL TRACEDFNS) S)
(MOVE 1Q -4Q P)
(CALL 2Q (E REMOVE) S)
(MOVEM 1Q (SPECIAL TRACEDFNS) S)
(HRRZ@ 5Q 0Q P)
(HLRZ@ 5Q 5Q)
(HRRZ@ 5Q 5Q)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(MOVEM 5Q -1Q P)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE BREAK1) S)
(JRST 0Q TAG44)
(HRRZ@ 5Q -1Q P)
(HRRZ@ 5Q 5Q)
(MOVE 4Q -3Q P)
(HRLM@ 4Q 5Q)
(JRST 0Q TAG4)
TAG44 (MOVE 1Q -4Q P)
(CALL 1Q (E NCONS) S)
(CALL 17Q (E UNBREAK) S)
(MOVE 3Q -2Q P)
(MOVE 2Q -3Q P)
(MOVE 1Q -4Q P)
(CALL 3Q (E BREAK0) S)
(JRST 0Q TAG5)
TAG42 (MOVE 2Q (SPECIAL UNBREAKABLEFNS) S)
(MOVE 1Q -4Q P)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG47)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -4Q P)
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE " unbreakable unless IN something.") S)
(CALL 2Q (E PRINAC) S)
(CALL 0Q (E TERPRI) S)
(MOVEI 2Q (QUOTE (?)) S)
(MOVE 1Q -4Q P)
(CALL 2Q (E CONS) S)
(JRST 0Q TAG5)
TAG47 (MOVE 2Q 0Q P)
(MOVE 1Q -4Q P)
(PUSHJ P SAVEDEF)
(HLRZ@ 2Q 1Q)
(MOVEM 1Q 0Q P)
(MOVE 1Q -4Q P)
(CALL 2Q (E REMPROP) S)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(HRRZ@ 2Q 2Q)
(HRRZ@ 2Q 2Q)
(MOVEI 1Q (QUOTE QUOTE) S)
(CALL 2Q (E CONS) S)
(PUSH P 1Q)
(MOVE 1Q -5Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE QUOTE) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -4Q P)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE BREAK1) S)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(HRRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E XCONS) S)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E XCONS) S)
(HLRZ@ 3Q 0Q P)
(MOVE 2Q 1Q)
(MOVE 1Q -4Q P)
(CALL 3Q (E PUTPROP) S)
TAG4 (PUSH P -1Q P)
(HRRZ@ 5Q 0Q P)
(HRRZ@ 5Q 5Q)
(HRRZ@ 5Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVEM 5Q 0Q P)
(MOVE 5Q -3Q P)
(JUMPE 5Q TAG51)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE //BREAK1) S)
(JRST 0Q TAG53)
(HRRZ@ 1Q -1Q P)
(CALL 1Q (E CADAR) S)
(CALL 1Q (E CONSP) S)
(MOVEI 2Q (QUOTE ?=) S)
(CALL 2Q (E XCONS) S)
(HRRZ@ 5Q -3Q P)
(HRLM@ 1Q 5Q)
(MOVE 1Q -3Q P)
(JRST 0Q TAG52)
TAG53 (MOVE 1Q -3Q P)
TAG52 (CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE QUOTE) S)
(CALL 2Q (E XCONS) S)
(MOVE 5Q 1Q)
TAG51 (HRLM@ 5Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(MOVE 1Q (SPECIAL BKFNLIST) S)
(PUSH P 1Q)
(CALL 1Q (E *EVAL) S)
(MOVE 2Q -5Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E SET) S)
(MOVE 1Q -4Q P)
TAG5 (SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP SAVEDEF SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (CALL 0Q (E GENSYM) S)
(CALL 1Q (E INTERN) S)
(HRRZ@ 5Q 1Q)
(HRRZ@ 5Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVEM 1Q 0Q P)
(JUMPN 5Q TAG1)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(HLRZ@ 5Q -3Q P)
(CAIE 5Q (QUOTE MACRO) S)
(JRST 0Q TAG11)
(MOVEI 1Q (QUOTE FEXPR) S)
(JRST 0Q TAG10)
TAG11 (MOVE 1Q 5Q)
TAG10 (PUSH P 1Q)
(HRRZ@ 1Q -4Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *NCONC) S)
(HLRZ@ 2Q -2Q P)
(MOVE 1Q -3Q P)
(CALL 2Q (E CONS) S)
(MOVEI 3Q (QUOTE FUNTYPE) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 3Q (E PUTPROP) S)
(MOVEI 3Q (QUOTE ERXACTION) S)
(MOVEI 2Q (QUOTE (T T NIL NIL)) S)
(MOVE 1Q 0Q P)
(CALL 3Q (E PUTPROP) S)
(MOVEI 3Q (QUOTE ERXACTION) S)
(MOVEI 2Q (QUOTE (NIL NIL T T)) S)
(MOVE 1Q -3Q P)
(CALL 3Q (E PUTPROP) S)
TAG2 (MOVEI 2Q (QUOTE (FSUBR SUBR)) S)
(HLRZ@ 1Q -2Q P)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG13)
(MOVEI 2Q (QUOTE ARGS) S)
(MOVE 1Q -3Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q -1Q P)
(JUMPN 1Q TAG3)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -3Q P)
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE " argument list? ") S)
(CALL 2Q (E PRINAC) S)
(CALL 0Q (E READ) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG16)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG16)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE "Should be a list.") S)
(CALL 2Q (E PRINAC) S)
(JRST 0Q TAG2)
TAG16 (MOVE 1Q -1Q P)
(PUSHJ P ATOMLISTP)
(JUMPN 1Q TAG21)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE "Should be a list of atomic arguments.") S)
(CALL 2Q (E PRINAC) S)
(JRST 0Q TAG2)
TAG21 (HLRZ@ 5Q -2Q P)
(CAIE 5Q (QUOTE FSUBR) S)
(JRST 0Q TAG22)
(MOVE 5Q -1Q P)
(JUMPE 5Q TAG25)
(HRRZ@ 5Q 5Q)
(JUMPE 5Q TAG22)
TAG25 (MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE "FSUBR -- Takes exactly one argument.") S)
(CALL 2Q (E PRINAC) S)
(JRST 0Q TAG2)
TAG22 (MOVEI 3Q (QUOTE ARGS) S)
(MOVE 2Q -1Q P)
(MOVE 1Q -3Q P)
(CALL 3Q (E PUTPROP) S)
(JRST 0Q TAG12)
TAG13 (HLRZ@ 5Q -2Q P)
(CAIE 5Q (QUOTE LSUBR) S)
(JRST 0Q TAG26)
(MOVEI 5Q (QUOTE N?) S)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG12)
TAG26 (HRRZ@ 1Q -2Q P)
(CALL 1Q (E CADAR) S)
(MOVEM 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG30)
(MOVE 5Q -1Q P)
(JUMPE 5Q TAG32)
(HRRZ@ 1Q -2Q P)
(CALL 1Q (E CADAR) S)
(CALL 1Q (E NCONS) S)
(HRRZ@ 5Q -2Q P)
(HLRZ@ 5Q 5Q)
(HRRZ@ 5Q 5Q)
(HRLM@ 1Q 5Q)
(JUMPE 5Q TAG34)
(MOVEI 3Q (QUOTE LEXPR) S)
(MOVEI 2Q (QUOTE T) S)
(MOVE 1Q 0Q P)
(CALL 3Q (E PUTPROP) S)
TAG34
TAG32
TAG30
TAG12
TAG3 (MOVE 2Q 0Q P)
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E CONS) S)
(MOVEI 3Q (QUOTE TRACE) S)
(MOVE 2Q 1Q)
(MOVE 1Q -3Q P)
(CALL 3Q (E PUTPROP) S)
(MOVEI 2Q (QUOTE (SUBR EXPR LSUBR)) S)
(HLRZ@ 1Q -2Q P)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG36)
(MOVEI 1Q (QUOTE EXPR) S)
(JRST 0Q TAG35)
TAG36 (HLRZ@ 5Q -2Q P)
(CAIE 5Q (QUOTE MACRO) S)
(JRST 0Q TAG37)
(MOVEI 1Q (QUOTE MACRO) S)
(JRST 0Q TAG35)
TAG37 (MOVEI 1Q (QUOTE FEXPR) S)
TAG35 (PUSH P 1Q)
(MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE QUOTE) S)
(CALL 2Q (E XCONS) S)
(PUSH P -2Q P)
(PUSH P 1Q)
(HLRZ@ 5Q -5Q P)
(CAIE 5Q (QUOTE LSUBR) S)
(JRST 0Q TAG41)
(MOVEI 1Q (QUOTE N?) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE LXPD) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG40)
TAG41 (MOVE 1Q -4Q P)
(JUMPE 1Q TAG42)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG42)
(MOVE 1Q -4Q P)
(CALL 1Q (E NCONS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE QUOTE) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG40)
TAG42 (MOVEI 2Q (QUOTE (SUBR EXPR)) S)
(HLRZ@ 1Q -5Q P)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG45)
(MOVE 1Q -4Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE QUOTE) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG40)
TAG45 (HLRZ@ 1Q -4Q P)
TAG40 (CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE BRKAPPLY) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE LAMBDA) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(SUB P (C 4Q 0Q 4Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP ATOMLISTP SUBR)
(PUSH P 1Q)
TAG1 (MOVE 5Q 0Q P)
(JUMPN 5Q TAG6)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG2)
TAG6 (HLRZ@ 1Q 5Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG7)
(HRRZ@ 5Q 5Q)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG1)
TAG7 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP BRKAPPLY SUBR)
(CALL 2Q (E CONS) S)
(JCALL 1Q (E *EVAL) S)
NIL
(LAP BREAK FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPN 1Q TAG5)
(MOVE 1Q (SPECIAL LASTWORD) S)
(CALL 1Q (E NCONS) S)
(MOVEM 1Q -2Q P)
TAG5
TAG1 (MOVE 1Q -2Q P)
(JUMPN 1Q TAG7)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG7 (HLRZ@ 1Q 1Q)
(MOVEM 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG10)
(MOVEI 3Q (QUOTE NIL))
(MOVEI 2Q (QUOTE T) S)
(MOVE 1Q -1Q P)
(CALL 3Q (E BREAK0) S)
(MOVEM 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG12)
(MOVE 5Q -1Q P)
(MOVEM 5Q (SPECIAL LASTWORD) S)
TAG12 (MOVE 1Q -1Q P)
(JRST 0Q TAG6)
TAG10 (HRRZ@ 5Q -1Q P)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE IN) S)
(JRST 0Q TAG13)
(MOVEI 3Q (QUOTE NIL))
(MOVEI 2Q (QUOTE T) S)
(MOVE 1Q -1Q P)
(CALL 3Q (E BREAK0) S)
(JRST 0Q TAG6)
TAG13 (HRRZ@ 1Q -1Q P)
(JUMPE 1Q TAG14)
(HRRZ@ 3Q 1Q)
(MOVE 2Q 5Q)
(HLRZ@ 1Q -1Q P)
(CALL 3Q (E BREAK0) S)
(JRST 0Q TAG6)
TAG14 (MOVEI 2Q (QUOTE (?)) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
TAG6 (MOVE 2Q 0Q P)
(CALL 2Q (E CONS) S)
(HRRZ@ 5Q -2Q P)
(MOVEM 1Q 0Q P)
(MOVEM 5Q -2Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP TRACE FSUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL BKFNLIST) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPN 1Q TAG5)
(MOVE 1Q (SPECIAL LASTWORD) S)
(CALL 1Q (E NCONS) S)
(MOVEM 1Q -2Q P)
TAG5 (MOVEI 5Q (QUOTE TRACEDFNS) S)
(MOVEM 5Q (SPECIAL BKFNLIST) S)
TAG1 (MOVE 1Q -2Q P)
(JUMPN 1Q TAG7)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG7 (HLRZ@ 1Q 1Q)
(MOVEM 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG10)
(MOVEI 1Q (QUOTE (UNTRACE)) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE //BREAK1) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE (TRACE)) S)
(CALL 2Q (E XCONS) S)
(MOVE 3Q 1Q)
(MOVEI 2Q (QUOTE T) S)
(MOVE 1Q -1Q P)
(CALL 3Q (E BREAK0) S)
(MOVEM 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG12)
(MOVE 5Q -1Q P)
(MOVEM 5Q (SPECIAL LASTWORD) S)
TAG12 (MOVE 1Q -1Q P)
(JRST 0Q TAG6)
TAG10 (HRRZ@ 5Q -1Q P)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE IN) S)
(JRST 0Q TAG13)
(MOVEI 1Q (QUOTE (UNTRACE)) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE //BREAK1) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE (TRACE)) S)
(CALL 2Q (E XCONS) S)
(MOVE 3Q 1Q)
(MOVEI 2Q (QUOTE T) S)
(MOVE 1Q -1Q P)
(CALL 3Q (E BREAK0) S)
(JRST 0Q TAG6)
TAG13 (PUSH P -1Q P)
(HLRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(HRRZ@ 2Q -2Q P)
(JUMPE 2Q TAG16)
(MOVE 2Q 5Q)
(JRST 0Q TAG15)
TAG16 (MOVEI 2Q (QUOTE T) S)
TAG15 (PUSH P 2Q)
(HRRZ@ 1Q -3Q P)
(HRRZ@ 1Q 1Q)
(JUMPE 1Q TAG20)
(EXCH 2Q 1Q)
(MOVEI 1Q (QUOTE ?=) S)
(CALL 2Q (E CONS) S)
(JRST 0Q TAG17)
TAG20 (MOVEI 1Q (QUOTE //BREAK1) S)
TAG17 (PUSH P 1Q)
(MOVEI 1Q (QUOTE (UNTRACE)) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE (TRACE)) S)
(CALL 2Q (E XCONS) S)
(MOVE 3Q 1Q)
(POP P 2Q)
(POP P 1Q)
(CALL 3Q (E BREAK0) S)
TAG6 (MOVE 2Q 0Q P)
(CALL 2Q (E CONS) S)
(HRRZ@ 5Q -2Q P)
(MOVEM 1Q 0Q P)
(MOVEM 5Q -2Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(JRST 0Q SPECSTR)
NIL
(DEFV TRACE NIL)
(LAP BREAKIN FSUBR)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(HRRZ@ 2Q -1Q P)
(MOVEM 2Q -1Q P)
(JUMPE 2Q TAG2)
(HLRZ@ 2Q 2Q)
(JRST 0Q TAG1)
TAG2 (MOVEI 2Q (QUOTE (BEFORE TTY:)) S)
TAG1 (PUSH P 2Q)
(MOVE 3Q -2Q P)
(JUMPE 3Q TAG4)
(HRRZ@ 3Q 3Q)
(MOVEM 3Q -2Q P)
(JUMPE 3Q TAG4)
(HLRZ@ 3Q -2Q P)
(JRST 0Q TAG3)
TAG4 (MOVEI 3Q (QUOTE T) S)
TAG3 (PUSH P 3Q)
(MOVE 4Q -3Q P)
(JUMPE 4Q TAG10)
(HRRZ@ 1Q 4Q)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE QUOTE) S)
(CALL 2Q (E XCONS) S)
(EXCH 4Q 1Q)
TAG10 (POP P 3Q)
(POP P 2Q)
(POP P 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q BREAKIN0)
NIL
(LAP BREAKIN0 SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVEI 2Q (QUOTE TRACE) S)
(CALL 2Q (E GET) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG11)
(HRRZ@ 1Q 1Q)
(JRST 0Q TAG10)
TAG11 (MOVE 1Q -6Q P)
TAG10 (MOVEI 2Q (QUOTE (EXPR FEXPR MACRO)) S)
(CALL 2Q (E GETL) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG7)
(HRRZ@ 5Q 1Q)
(HLRZ@ 5Q 5Q)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG6)
TAG7 (MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -6Q P)
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE " can't be broken into.") S)
(CALL 2Q (E PRINAC) S)
(CALL 0Q (E TERPRI) S)
(MOVEI 2Q (QUOTE (?)) S)
(MOVE 1Q -6Q P)
(CALL 2Q (E CONS) S)
(JRST 0Q TAG3)
TAG6 (HLRZ@ 1Q -5Q P)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG14)
(HRRZ@ 5Q -5Q P)
(HLRZ@ 4Q -5Q P)
(MOVEM 4Q -5Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG13)
TAG14 (CLEARM 5Q -1Q P)
TAG13
TAG1 (MOVEI 2Q (QUOTE (AROUND BEFORE AFTER)) S)
(HLRZ@ 1Q -5Q P)
(CALL 2Q (E MEMQ) S)
(JUMPN 1Q TAG16)
(HLRZ@ 1Q -5Q P)
(CALL 1Q (E PRINT) S)
(MOVEI 1Q (QUOTE " ?") S)
(CALL 1Q (E PRINC) S)
(CALL 0Q (E TERPRI) S)
(JRST 0Q TAG2)
TAG16 (HLRZ@ 5Q -5Q P)
(CAIE 5Q (QUOTE AROUND) S)
(JRST 0Q TAG20)
(MOVEI 1Q (QUOTE (QUOTE *)) S)
(JRST 0Q TAG17)
TAG20 (MOVEI 1Q (QUOTE NIL))
TAG17 (PUSH P 1Q)
(MOVE 1Q -6Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -7Q P)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE QUOTE) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(MOVE 2Q -5Q P)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -5Q P)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE BREAK1) S)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q -2Q P)
(PUSH P (C 0Q 0Q TAG23 0Q))
(MOVEI 1Q (QUOTE ERRORX) S)
(JSP 13Q *ERRSET1)
(HRRZ@ 2Q -13Q P)
(MOVEI 1Q (QUOTE LC) S)
(CALL 2Q (E CONS) S)
(PUSH P -6Q P)
(PUSH P 1Q)
(HLRZ@ 5Q -15Q P)
(MOVEM 5Q (SPECIAL SELECTQ) S)
(CAIE 5Q (QUOTE AFTER) S)
(JRST 0Q TAG25)
(MOVEI 1Q (QUOTE A) S)
(JRST 0Q TAG24)
TAG25 (CAIE 5Q (QUOTE BEFORE) S)
(JRST 0Q TAG26)
(MOVEI 1Q (QUOTE B) S)
(JRST 0Q TAG24)
TAG26 (CAIE 5Q (QUOTE AROUND) S)
(JRST 0Q TAG27)
(MOVEI 1Q (QUOTE MBD) S)
(JRST 0Q TAG24)
TAG27 (HLRZ@ 1Q -15Q P)
TAG24 (PUSH P 1Q)
(MOVE 1Q -13Q P)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 3Q (QUOTE NIL))
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 3Q (E EDITE) S)
(JRST 0Q *ERRSET2)
TAG23 (CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG22)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE NIL))
(HRRZ@ 1Q -5Q P)
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE " not found in ") S)
(CALL 2Q (E PRINAC) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -6Q P)
(CALL 2Q (E PRINA) S)
(CALL 0Q (E TERPRI) S)
(JRST 0Q TAG21)
TAG22 (MOVEI 3Q (QUOTE BROKEN-IN) S)
(MOVEI 2Q (QUOTE T) S)
(MOVE 1Q -6Q P)
(CALL 3Q (E PUTPROP) S)
(MOVE 2Q (SPECIAL BROKENFNS) S)
(MOVE 1Q -6Q P)
(CALL 2Q (E REMOVE) S)
(MOVE 2Q -6Q P)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q (SPECIAL BROKENFNS) S)
TAG21
TAG2 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG33)
(HLRZ@ 5Q 5Q)
(HRRZ@ 4Q -1Q P)
(MOVEM 4Q -1Q P)
(MOVEM 5Q -5Q P)
(JRST 0Q TAG1)
TAG33 (MOVE 1Q -6Q P)
TAG3 (SUB P (C 7Q 0Q 7Q 0Q))
(POPJ P)
NIL
(LAP UNBREAKIN SUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL UPFINDFLG) S)
(PUSH P 1Q)
(MOVEI 5Q (QUOTE T) S)
(MOVEM 5Q (SPECIAL UPFINDFLG) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVEI 2Q (QUOTE TRACE) S)
(CALL 2Q (E GET) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG5)
(HRRZ@ 5Q 1Q)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG4)
TAG5 (MOVE 5Q -1Q P)
(MOVEM 5Q 0Q P)
TAG4 (MOVEI 2Q (QUOTE (EXPR FEXPR MACRO)) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GETL) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG7)
(HRRZ@ 5Q 1Q)
(HLRZ@ 5Q 5Q)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG6)
TAG7 (MOVEI 2Q (QUOTE (?)) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
(JRST 0Q TAG1)
TAG6 (MOVEI 3Q (QUOTE NIL))
(MOVEI 2Q (QUOTE ((LPQ F BREAK1 (COMS (SELECTQ (## 4Q 2Q 2Q 1Q) (AROUND (QUOTE (XTR 2Q 2Q))) ((AFTER BEF→
ORE) (QUOTE DELETE)) NIL))))) S)
(MOVE 1Q 0Q P)
(CALL 3Q (E EDITE) S)
(MOVE 1Q -1Q P)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP BREAK0A SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(MOVEI 3Q (QUOTE NIL))
(EXCH 2Q 1Q)
(PUSHJ P CHNGNM)
(MOVEM 1Q -3Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(MOVE 3Q 0Q P)
(MOVE 2Q -1Q P)
(MOVE 1Q -3Q P)
(CALL 3Q (E BREAK0) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q -3Q P)
TAG1 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP CHNGNM SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVEI 2Q (QUOTE TRACE) S)
(CALL 2Q (E GET) S)
(MOVEM 1Q -4Q P)
(JUMPE 1Q TAG7)
(HRRZ@ 1Q 1Q)
(JRST 0Q TAG6)
TAG7 (MOVE 1Q -7Q P)
TAG6 (MOVEI 2Q (QUOTE (EXPR FEXPR MACRO)) S)
(CALL 2Q (E GETL) S)
(MOVEM 1Q 0Q P)
(JUMPN 1Q TAG5)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -7Q P)
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE " can't be broken into.") S)
(CALL 2Q (E PRINAC) S)
(CALL 0Q (E TERPRI) S)
(MOVEI 2Q (QUOTE (?)) S)
(MOVE 1Q -7Q P)
(CALL 2Q (E CONS) S)
(JRST 0Q TAG1)
TAG5 (MOVE 1Q -7Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE IN) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -6Q P)
(CALL 2Q (E XCONS) S)
(PUSHJ P PACK-IN)
(MOVEM 1Q -1Q P)
(MOVE 5Q -5Q P)
(JUMPE 5Q TAG11)
(HLRZ@ 2Q 0Q P)
(CALL 2Q (E REMPROP) S)
(MOVEI 2Q (QUOTE NAMESCHANGED) S)
(MOVE 1Q -7Q P)
(CALL 2Q (E GET) S)
(EXCH 2Q 1Q)
(MOVE 1Q -6Q P)
(CALL 2Q (E REMOVE) S)
(MOVEM 1Q -4Q P)
(JUMPE 1Q TAG13)
(MOVEI 3Q (QUOTE NAMESCHANGED) S)
(MOVE 2Q 1Q)
(MOVE 1Q -7Q P)
(CALL 3Q (E PUTPROP) S)
(JRST 0Q TAG12)
TAG13 (MOVEI 2Q (QUOTE NAMESCHANGED) S)
(MOVE 1Q -7Q P)
(CALL 2Q (E REMPROP) S)
TAG12 (MOVEI 2Q (QUOTE ALIAS) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E REMPROP) S)
(MOVE 5Q -6Q P)
(MOVE 4Q -1Q P)
(MOVEM 4Q -2Q P)
(MOVEM 5Q -3Q P)
(JRST 0Q TAG10)
TAG11 (MOVEM 1Q -3Q P)
(MOVEI 2Q (QUOTE NAMESCHANGED) S)
(MOVE 1Q -7Q P)
(CALL 2Q (E GET) S)
(EXCH 2Q 1Q)
(MOVE 1Q -6Q P)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG16)
(MOVE 5Q -1Q P)
(JRST 0Q TAG15)
TAG16 (MOVE 5Q -6Q P)
TAG15 (MOVEM 5Q -2Q P)
TAG10 (HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E UNMACEXPAND) S)
(MOVE 3Q -3Q P)
(MOVE 2Q -2Q P)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(PUSHJ P CHNM1)
(JUMPN 1Q TAG21)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -2Q P)
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE " not found in ") S)
(CALL 2Q (E PRINAC) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -7Q P)
(CALL 2Q (E PRINA) S)
(CALL 0Q (E TERPRI) S)
(MOVEI 2Q (QUOTE (?)) S)
(MOVE 1Q -7Q P)
(CALL 2Q (E CONS) S)
(JRST 0Q TAG1)
TAG21 (MOVE 5Q -5Q P)
(JUMPN 5Q TAG23)
(MOVEI 2Q (QUOTE (EXPR FEXPR SUBR FSUBR LSUBR MACRO)) S)
(MOVE 1Q -6Q P)
(CALL 2Q (E GETL) S)
(HLRZ@ 3Q 1Q)
(HRRZ@ 2Q 1Q)
(HLRZ@ 2Q 2Q)
(MOVEM 1Q -4Q P)
(MOVE 1Q -1Q P)
(CALL 3Q (E PUTPROP) S)
(MOVEI 2Q (QUOTE NAMESCHANGED) S)
(MOVE 1Q -7Q P)
(CALL 2Q (E GET) S)
(MOVE 2Q 1Q)
(MOVEM 1Q -4Q P)
(MOVE 1Q -6Q P)
(CALL 2Q (E MEMQ) S)
(JUMPN 1Q TAG25)
(MOVE 2Q -4Q P)
(MOVE 1Q -6Q P)
(CALL 2Q (E CONS) S)
(MOVEI 3Q (QUOTE NAMESCHANGED) S)
(MOVE 2Q 1Q)
(MOVE 1Q -7Q P)
(CALL 3Q (E PUTPROP) S)
TAG25 (MOVE 2Q -6Q P)
(MOVE 1Q -7Q P)
(CALL 2Q (E CONS) S)
(MOVEI 3Q (QUOTE ALIAS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 3Q (E PUTPROP) S)
(MOVEI 2Q (QUOTE ARGS) S)
(MOVE 1Q -6Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG27)
(MOVEI 3Q (QUOTE ARGS) S)
(EXCH 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 3Q (E PUTPROP) S)
TAG27
TAG23 (MOVE 1Q -3Q P)
TAG1 (SUB P (C 10Q 0Q 10Q 0Q))
(POPJ P)
NIL
(LAP UNBREAK FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPN 1Q TAG5)
(MOVE 1Q (SPECIAL BKFNLIST) S)
(CALL 1Q (E *EVAL) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEM 1Q -1Q P)
(MOVE 1Q (SPECIAL BKFNLIST) S)
(CALL 2Q (E SET) S)
(JRST 0Q TAG4)
TAG5 (HLRZ@ 5Q 1Q)
(CAIE 5Q (QUOTE T) S)
(JRST 0Q TAG6)
(MOVE 1Q (SPECIAL BKFNLIST) S)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG6)
(HLRZ@ 5Q 0Q P)
(HRLM@ 5Q -1Q P)
(HRRZ@ 2Q 0Q P)
(MOVE 1Q (SPECIAL BKFNLIST) S)
(CALL 2Q (E SET) S)
TAG6
TAG4 (PUSH P (C 0Q 0Q TAG11 0Q))
(MOVEI D (QUOTE UNBREAK0) S)
(PUSH P D)
(PUSH P -3Q P)
(MOVNI 6Q 2Q)
(JCALL 16Q (E MAPCAR) S)
TAG11 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP UNTRACE FSUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL BKFNLIST) S)
(PUSH P 1Q)
(MOVEI 5Q (QUOTE TRACEDFNS) S)
(MOVEM 5Q (SPECIAL BKFNLIST) S)
(CALL 17Q (E UNBREAK) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP UNBREAK! SUBR)
(PUSH P 1Q)
(CALL 1Q (E UNBREAK0) S)
(CAME 1Q 0Q P)
(JRST 0Q TAG3)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E OUTC) S)
(PUSH P 1Q)
(CALL 0Q (E TALK) S)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -1Q P)
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE " is being unbroken.") S)
(CALL 2Q (E PRINAC) S)
(CALL 0Q (E TERPRI) S)
(MOVEI 2Q (QUOTE NIL))
(POP P 1Q)
(CALL 2Q (E OUTC) S)
TAG3 (MOVEI 2Q (QUOTE NAMESCHANGED) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GET) S)
(PUSH P 1Q)
TAG1 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG10)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVEM 1Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE IN) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q 0Q P)
(PUSH P 5Q)
(CALL 1Q (E UNBREAK0) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E OUTC) S)
(PUSH P 1Q)
(CALL 0Q (E TALK) S)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE NIL))
(EXCH 1Q -2Q P)
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE " is being unbroken.") S)
(CALL 2Q (E PRINAC) S)
(CALL 0Q (E TERPRI) S)
(MOVEI 2Q (QUOTE NIL))
(POP P 1Q)
(CALL 2Q (E OUTC) S)
(POP P -1Q P)
(JRST 0Q TAG1)
TAG10 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP UNBREAK0 SUBR)
(PUSH P 1Q)
(PUSHJ P PACK-IN)
(MOVE 2Q (SPECIAL BROKENFNS) S)
(MOVEM 1Q 0Q P)
(CALL 2Q (E DREMOVE) S)
(MOVEM 1Q (SPECIAL BROKENFNS) S)
(MOVE 2Q (SPECIAL TRACEDFNS) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E DREMOVE) S)
(MOVEM 1Q (SPECIAL TRACEDFNS) S)
(MOVEI 2Q (QUOTE TRACE) S)
(MOVE 1Q 0Q P)
(PUSHJ P RESTORE)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVEI 2Q (QUOTE BROKEN-IN) S)
(MOVE 1Q -2Q P)
(CALL 2Q (E GET) S)
(JUMPE 1Q TAG5)
(MOVE 1Q -2Q P)
(PUSHJ P UNBREAKIN)
(MOVEI 2Q (QUOTE BROKEN-IN) S)
(MOVEM 1Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 2Q (E REMPROP) S)
TAG5 (MOVEI 2Q (QUOTE ALIAS) S)
(MOVE 1Q -2Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG7)
(MOVEI 3Q (QUOTE T) S)
(HRRZ@ 2Q 1Q)
(HLRZ@ 1Q 1Q)
(PUSHJ P CHNGNM)
TAG7 (MOVE 1Q -1Q P)
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP RESTORE SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 2Q (E GET) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG5)
(HRRZ@ 5Q 1Q)
(MOVEM 5Q 0Q P)
(PUSH P -4Q P)
(MOVEI 2Q (QUOTE FUNTYPE) S)
(MOVE 1Q 5Q)
(CALL 2Q (E GET) S)
(HRRZ@ 1Q 1Q)
(MOVEI 2Q (QUOTE (EXPR SUBR LSUBR)) S)
(MOVEM 1Q -3Q P)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG13)
(MOVEI 2Q (QUOTE EXPR) S)
(JRST 0Q TAG12)
TAG13 (MOVEI 2Q (QUOTE (FEXPR FSUBR)) S)
(MOVE 1Q -3Q P)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG14)
(MOVEI 2Q (QUOTE FEXPR) S)
(JRST 0Q TAG12)
TAG14 (MOVEI 2Q (QUOTE MACRO) S)
TAG12 (POP P 1Q)
(CALL 2Q (E GET) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG7)
(HRRZ@ 5Q 1Q)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE BREAK1) S)
(JRST 0Q TAG7)
(PUSH P 0Q P)
(PUSH P -5Q P)
(MOVE 5Q -4Q P)
(CAIE 5Q (QUOTE MACRO) S)
(JRST 0Q TAG17)
(MOVEI 2Q (QUOTE FEXPR) S)
(JRST 0Q TAG16)
TAG17 (MOVE 2Q 5Q)
TAG16 (MOVE 1Q -1Q P)
(CALL 2Q (E GET) S)
(MOVE 3Q -4Q P)
(MOVE 2Q 1Q)
(EXCH 1Q 0Q P)
(CALL 3Q (E PUTPROP) S)
(MOVEI 2Q (QUOTE LEXPR) S)
(MOVE 1Q -2Q P)
(CALL 2Q (E GET) S)
(JUMPE 1Q TAG22)
(HRRZ@ 5Q 0Q P)
(MOVEM 5Q -3Q P)
(HLRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(HRLM@ 5Q -3Q P)
(JRST 0Q TAG21)
TAG22 (MOVEI 2Q (QUOTE (LSUBR SUBR)) S)
(MOVE 1Q -4Q P)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG23)
(MOVEI 2Q (QUOTE EXPR) S)
(MOVE 1Q -6Q P)
(CALL 2Q (E REMPROP) S)
(JRST 0Q TAG21)
TAG23 (MOVEI 2Q (QUOTE (FSUBR MACRO)) S)
(MOVE 1Q -4Q P)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG24)
(MOVEI 2Q (QUOTE FEXPR) S)
(MOVE 1Q -6Q P)
(CALL 2Q (E REMPROP) S)
TAG24
TAG21 (POP P -3Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
TAG7 (MOVE 1Q 0Q P)
(CALL 1Q (E NCONS) S)
(CALL 17Q (E REMOB) S)
(MOVEI 2Q (QUOTE ERXACTION) S)
(MOVE 1Q -4Q P)
(CALL 2Q (E REMPROP) S)
(MOVE 2Q -3Q P)
(MOVE 1Q -4Q P)
(CALL 2Q (E REMPROP) S)
(MOVE 1Q -4Q P)
(JRST 0Q TAG4)
TAG5 (MOVEI 2Q (QUOTE (not broken)) S)
(MOVE 1Q -4Q P)
(CALL 2Q (E CONS) S)
TAG4 (SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP PACK-IN SUBR)
(PUSH P 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (HRRZ@ 5Q 0Q P)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE IN) S)
(JRST 0Q TAG3)
(HLRZ@ 1Q 0Q P)
(CALL 1Q (E AEXPLODE) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE -IN-) S)
(CALL 1Q (E AEXPLODE) S)
(PUSH P 1Q)
(HRRZ@ 1Q -2Q P)
(CALL 1Q (E CADR) S)
(CALL 1Q (E AEXPLODE) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *NCONC) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *NCONC) S)
(CALL 1Q (E READLIST) S)
(JRST 0Q TAG1)
TAG3 (MOVEI 2Q (QUOTE (?)) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E CONS) S)
(CALL 1Q (E PRINT) S)
(JUMPE 1Q TAG4)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E ERR) S)
TAG4
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP TRACEV FSUBR)
(PUSH P 1Q)
(MOVE 5Q (SPECIAL TRACEVFNS) S)
(JUMPN 5Q TAG2)
(MOVEI 1Q (QUOTE (SETQ %TRSETQ (FSUBR FEXPR))) S)
(CALL 17Q (E DEFP) S)
(MOVEI 1Q (QUOTE (SET %TRSET (SUBR EXPR))) S)
(CALL 17Q (E DEFP) S)
TAG2 (MOVE 1Q 0Q P)
(CALL 1Q (E REVERSE) S)
(MOVE 2Q (SPECIAL TRACEVFNS) S)
(CALL 2Q (E *NCONC) S)
(MOVEM 1Q (SPECIAL TRACEVFNS) S)
(POP P 1Q)
(POPJ P)
NIL
(LAP UNTRACEV FSUBR)
(PUSH P 1Q)
(JUMPN 1Q TAG3)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q (SPECIAL TRACEVFNS) S)
(CALL 2Q (E *APPEND) S)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG2)
TAG3 (MOVE 5Q (SPECIAL TRACEVFNS) S)
(JUMPE 5Q TAG4)
(HLRZ@ 5Q 1Q)
(CAIE 5Q (QUOTE T) S)
(JRST 0Q TAG4)
(HLRZ@ 5Q (SPECIAL TRACEVFNS) S)
(HRLM@ 5Q 0Q P)
TAG4
TAG2 (MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
TAG1 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG13)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(PUSH P 0Q P)
(MOVEM 1Q -2Q P)
(PUSH P 5Q)
(MOVE 2Q (SPECIAL TRACEVFNS) S)
(CALL 2Q (E MEMB) S)
(JUMPE 1Q TAG15)
(MOVE 2Q (SPECIAL TRACEVFNS) S)
(MOVE 1Q -3Q P)
(CALL 2Q (E DREMOVE) S)
(MOVEM 1Q (SPECIAL TRACEVFNS) S)
(MOVE 2Q -3Q P)
(JRST 0Q TAG14)
TAG15 (MOVEI 2Q (QUOTE (not TRACEVed)) S)
(MOVE 1Q -3Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q 1Q)
TAG14 (MOVE 1Q -1Q P)
(CALL 2Q (E TCONC) S)
(POP P -3Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG1)
TAG13 (HLRZ@ 1Q 0Q P)
(MOVEM 1Q -1Q P)
(MOVE 5Q (SPECIAL TRACEVFNS) S)
(JUMPN 5Q TAG20)
(MOVEI 1Q (QUOTE (SETQ BKSETQ FSUBR)) S)
(CALL 17Q (E DEFP) S)
(MOVEI 1Q (QUOTE (SET BKSET SUBR)) S)
(CALL 17Q (E DEFP) S)
TAG20 (MOVE 1Q -1Q P)
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP %TRSETQ FSUBR)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E *EVAL) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E %TRSET) S)
NIL
(LAP %TRSET SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVE 2Q (SPECIAL TRACEVFNS) S)
(CALL 2Q (E MEMB) S)
(JUMPE 1Q TAG2)
(MOVE 1Q (SPECIAL #%INDENT) S)
(CALL 1Q (E BKPOS) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE "Set ") S)
(CALL 2Q (E PRINAC) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -1Q P)
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE " to ") S)
(CALL 2Q (E PRINAC) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E %PRINFN) S)
TAG2 (POP P 2Q)
(POP P 1Q)
(JCALL 2Q (E SET) S)
NIL
(DEFP BKSETQ SETQ FSUBR)
(DEFP BKSET SET SUBR)
(DEFV BROKENFNS NIL)
(DEFV TRACEDFNS NIL)
(DEFV TRACEVFNS NIL)
(DEFV BKFNLIST BROKENFNS)
(DEFV UNBREAKABLEFNS
(BREAK1 //BREAK1 %UNTRACE LXPD BRKAPPLY BKSETQ BKSET QUOTE))